home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / ARREST.SAB < prev    next >
Text File  |  1991-09-17  |  2KB  |  52 lines
  1. label start
  2. cls
  3. set error messages off
  4. set color foregrnd white
  5. set color backgrnd blue
  6. display cp.dis
  7. write "ARREST.SAB" at 2,36
  8. write "Absconding Without Paying Rent" at 7,25
  9. write "A..... Print Voluntary Statement For Police              " at 10,10
  10. write "B..... Edit Absconding Table                             " at 11,10
  11. set v opn to ""
  12. fillin opn using "Enter Selection (or <ESC> )  ->  " at 18,10
  13. if opn = "" then ; goto fin ; endif
  14. if opn = "a" then ; goto opa ; endif
  15. if opn = "b" then ; goto opb ; endif
  16.   goto start
  17. label opa
  18. cls
  19. display cp.dis
  20. write "ARREST.SAB" at 2,36
  21. write "Voluntary Statement - Absconding" at 7,24
  22. set v code to ""
  23. fillin code using "Enter Entire Address Code (or <ESC>) ->  " at 12,15
  24.   if code = "" then ; goto fin ; endif
  25. set v nam to ""
  26. fillin nam using "Enter Entire Last Name Of Primary Tenant " at 14,15
  27. append old.mast to arrest where add.code = .code and l.name = .nam
  28. out pri
  29.   print arrest where add.code exists
  30.   print arrest where add.code exists
  31. out scr
  32. change rec.call to " " in old.mast where add.code = .code and l.name = .nam
  33. change exp.date to " " in old.mast where add.code = .code and l.name = .nam
  34. change reason to " " in old.mast where add.code = .code and l.name = .nam
  35. change repdate to .#date in arrest where add.code exists
  36. app arrest to abscond whe add.code exists
  37. delete rows from arrest where add.code exists
  38. goto start
  39. label opb
  40. set v whch to ""
  41. fillin whch using "Enter All Or A Portion Of ADD.CODE Or Last Name  " +
  42.   at 20,10
  43. set color backgrnd brown
  44. edit using abscond where add.code contains .whch
  45. edit using abscond where l.name contains .whch
  46. set color backgrnd blue
  47. goto start
  48. label fin
  49. cls
  50. return
  51.  
  52.